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2. ABSTRACT 



The Bidirectional PDP-7 DECtape Subroutines allow the programmer to transfer variable 
length records to or from DECtape in either direction depending on the current position of the tape. The 
only requirement is that the standard DECtape format be used (llOOg usable blocks of 400g words each). 
Mainly the subroutines minimize access time to the DECtape, and allow program overlap with data trans- 
fers using the program interrupt or automatic priority interrupt facilities. With three exceptions,* the 
subroufines are completely compatible with the unidirectional subroutines described in Digital-7-22-l/0 
(which are not obsolete). Information written with either set can be read with the other. In addition, 
data is written as if it were in the forward direction; so that the record need not be read in the same di- 
rection as it was written. The amount of data transferred need not be an integral number of blocks. 
Though the routines themselves are loaded into the first 8K of core, data transfers can address normal or 
extended memories. These new subroutines make more efficient use of the DECtape; however, as they 
are significantly larger than the basic set (450g locations for the unidirectional, 604g locations for the 
bidirectional), the user must choose the set most applicable to the }ob. 

3. REQUIREMENTS 

3.1 Storage 

The subroutines occupy approximately 604g locations including variable registers and literals, 
and must be loaded into the first 8K of memoiy . 

3.3 Equipment 

The subroutines function with a 555 or TU55 DECtape drive and a 550 or 550A DECtape 
control interfaced to a PDP-7, The subroutines will not run on a PDP-4. 

4. USAGE 

4.1 Loading 

The subroutines are in ASCII format designed to be assembled as part of the user's program. 
The tapes contain no origin, no starting address, and no undefined symbols. In order to link with the 
user's program, however, the following items are required as part of the main program. 

4.1 .1 In order to correctly use the program interrupt or automatic priority interrupt facilities, the 

main program must include the following coding. Reference should be made to the description of the in- 
terrupt facilities in the PDP-7 Users Handbook (F-75). 

For the standard program interrupt control, the main program should store a JMP X instruction 
at location 1 where X must include the following instructions: 



*1) The Search subroutine can no longer be used as a separate independent subroutine. 

2) The register MMWAl no longer holds the next block to be transferred (or the next free block). See 
Section 4.2.7, page 5. 

3) Starting and ending core addresses for the Read and Write Subroutines must be 15-bit addresses and 
can no longer be LAW instructions. 



Digital-7-22A-|/0 
Page 2 

X, DAC ACSAVE 

MMEF 
SKP 

JMP I MMERR 
MMDF 
SKP 

JMP I MMDATA 
MMBF 
SKP 

JMP I MMBLF 
(Any additional options attached 
to the interrupt are checked here) 

For the automatic priority interrupt, the program should store a JMS X instruction at loca- 
tion 43 (assuming DECtape is attached to channel 3) where X must include the following instructions: 



/SAVE THE ACCUMULATOR 
/SKIP ON DECTAPE ERROR FLAG 



/SKIP ON DECTAPE DATA FLAG 



/SKIP ON DECTAPE BLOCK END FLAG OR HLT 
/IF NO OTHER OPTIONS ATTACHED 



X, 





DAC ACSAVE 

MMEF 

SKP 

JMP I MMERR 

MMDF 

SKP 

JMP I MMDATA 

MMBF 

HLT 

JMP I MMBLF 



/SAVE THE ACCUMULATOR 
/SKIP ON DECTAPE ERROR FLAG 



/SKIP ON DECTAPE DATA FLAG 



/SKIP ON DECTAPE BLOCK END FLAG ERROR 
/UNLESS OTHER OPTIONS ATTACHED 



4.1 .2 The tag "DISMIS" must be defined in the main program as a jump to the instructions which 

restore the link bit and accumulator and reenable the interrupt or channel. (The examples assume the 
interrupt routines were coded as in Section 4.1 .1 above.) 

For the standard program interrupt control: 

DISMIS = JMP. 

LAC 

/RESTORE LINK 
/RESTORE ACCUMULATOR 
/ENABLE INTERRUPT 
/RETURN TO MAIN PROGRAM 



/RESTORE LINK 
/RESTORE ACCUMULATOR 
/DEBREAK, ENABLE CHANNEL 
/RETURN TO MAIN PROGRAM 





LAC 




RAL 




LAC ACSAVE 




ION 




JMP 1 




For automatic priority interrupt: 


DISMIS 


= JMP. 




LACX 




RAL 




LAC ACSAVE 




DBR 




JMP 1 X 
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4.1 .3 In order to differentiate between programs using the program Interrupt and automatic priority 
interrupt facilities, the main program must contain a register named "MMAPII" containing a + If the 
program interrupt Is used, and any nonzero word if the automatic priority Interrupt is used. Since it is 
not destroyed or changed MMAPli may be defined as equal to any other register which always contains 
the zero or nonzero word as required. 

4.1 .4 The subroutines assume that DECtape is attached to channel 3 if the automatic priority 
interrupt Is used. If attached to any other channel, the register named "MMAPIC", within the subroutines 
themselves, must be modified to contain a 1 bit In one of the bits 2-17 (representing channels 0-15,^ 
respectively) to Indicate the channel. 

For example: 

If MMAPIC contains "1" channel 15 is used 

If MMAPIC contains "lOOOOO" channel Is used 

If MMAPIC contains "40" channel 10 is used 

MMAPIC need not be changed If the program Interrupt, or channel 3 of the automatic priority Interrupt, 
is used. 

4.1.5 The program Interrupt or automatic priority interrupt (and channel) will be enabled by the 
subroutines themselves whether or not they were enabled by the user previously. The main program must 
guarantee that no flags can come up (or be up) from devices which are not checked by the user's interrupt 
service routine (as outlined in Section 4.1 .1). 

4.2 Calling Sequence 

To transfer Information the following calling sequence must be used: 

JMS MMRDS /OR JMS MMWRS See Section 4.2.1 

LAC BLOCK /BLOCK NUMBER See Section 4.2.2 

JMPXX /ERROR RETURN See Section 4.2.3 

ZZOOOO /UNIT See Section 4.2.4 

CI /FIRST ADDRESS See Section 4.2.5 

C2 /LAST ADDRESS See Section 4.2.6 

RETURN /MULTIPROGRAMMING RETURN See Section 4.2.7 

4.2.1 The JMS MMRDS instruction is used for reading; the JMS MMWRS instruction is used for 
writing. 

4.2.2 The DECtape block number on which the information transfer is to begin can be loaded Into 
the accumulator with a LAC instruction as shown (where BLOCK is any register containing the correct 
block number), or with a LAW instruction containing the correct block number. The user should always 
assume the information is being transferred in the forward direction. As the instruction is executed, the 
location cannot contain just the block number itself. The low order twelve bits of the block number are 
examined, however, only block numbers 1 through llOOp are acceptable to the subroutines. 

4.2.3 The JMP XX Instruction is the instruction executed should any type of error occur. The 
accumulator contains a code indicating the type of error which occurred and location MMRSA contains 
the status of the DECtape system (obtained by means of an MMRS instruction) at the time of the error. 
The error may be detected in either the main program level or interrupt level of the program and, there- 
fore, the interrupt system or the particular channel used will be disabled when this Instruction is executed. 
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NOTE: If the main program is normally in extend mode while the DECtape is 
running, the error return must be a JMP I (XX+400000) so that the extend mode 
will be restored if dn error occurs. 



At the time the instruction is executed, the contents of the accumulator can be interpreted as follows: 

Contents of Accumulator Meaning 

LAW 100 Illegal format. Block number or core loca- 

tions requested were illegal . 

LAW 200 Block requested cannot JDe found.* 

LAW 300 The DECtape error flag was raised while 

searching for other than an end-of-tdpe 
condition.* 

LAW 400 The DECtape error flag was raised while 

reading.** 

LAW 500 The calculated checksum does not agree 

with the checksum read from tape.** 

LAW 600 The DECtape error flag was raised while 

writing.** 

LAW 700 The block number read was not the block 

mark number predicted, while reading or 
writing.** 

At the present the DECtape error fjag can only be raised by end-of-tape, a timing error 
(the program did handle data fast enough), or a mark-track error. 

4.2.4 ZZ represents the unit number (V-10) which must be placed in bits 2 through 5 of the register, 
Only those bits are examined. 

4.2.5 CI represents the 15-bit address of the first core location to be read into or written from 
(always assuming the data is transferred in the forward direction). It can be any address in normal or 
extended memory. (Only 15 bits are examined.) 

4.2.6 C2 represents the 15-bit address of the last core location (inclusive) to be read into or 
written from (again assuming the data is transferred in the forward direction). C2 must be equal to or 
greater than CI . (Only 15 bits are examined.) The area transferred should not normally include the 
subroutines themselves or location 0. The subroutines are not designed to read over themselves. 

Since each block written contains its own checksum, the area read need not be the same as 
that written. For example, if the user requested that locations 1000-3777 be written beginning with block 
100, he could at some future time request that locations 2000-2777 be read beginning with block 102. 



*The number of the block being searched for can be found in the register called MMBLKM. The block 
mark number last read can be found in the location whose address is contained in MMWAl, (i.e., it has 
been stored with a DAC I MMWAl instruction) . 

**The block number last read can be found in the location whose address is contained in MMWAl, 
(i.e., it has been stored with a DAC I MMWAl instruction). 
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Any number of words may be transferred. If a nonintegral number of blocks is specified, 
the following takes place: 

If reading, the correct number of words will be deposited in memory and the 
remainder of the last block will be read but not deposited in order to verify 
the checksum. 

If writing, the remainder of the last block will be filled with +0's and a cor- 
rect checksum written. 

4.2.7 As soon as searching starts, the subroutines return to the register marked "return" with the 

interrupt enabled. If necessary, this allows the programmer to continue processing while both the search- 
ing and data transfer takes place. In terms of usable programming time, the user has approximately 
200 msec + 53 msec per block searched + 35 msec per block transferred which can be used after the sub- 
routines are initially called. 

The register named MMDONE is set to a +0 after each block mark is passed and to —0 when 
the data transfer is complete or if an error occurs. This allows the user three possible ways of determining 
when the transfer has been completed: 

1. ISZ MMDONE 

JMP ? /NOT DONE 

2. LAM 

SAD MMDONE 

JMP ? /DONE 

3. LAC 
SNA 

JMP? /NOT DONE ETC. 

Method 1 has the advantage of not destroying the accumulator. However, if for any reason 
the DECtape data flag did not occur as it should, the ISZ would skip incorrectly after approximately 
1 .4 sec. 

If the user should call the DECtqpe subroutines before a previous DECtape transfer has been 
completed, the subroutines will remain in a wait loop and not return to the main program until the first 
transfer has been completed and the second has begun . 

It sometimes is necessary to determine what is the next forward block number on the tape, 
after the information just transferred. The following sequence of instructions places the correct block 
number in the accumulator: 

LAW 61 /SEARCH BACK COMMAND 

SAD MMWA3 /LAST COMMAND ISSUED 

JMP -> LAC MMBLKM /BLOCK SEARCHED FOR 

LAM -2 /TO SUBTRACT 3 ADD (1) 

TAD I MMWAl /ADD CURRENT POSITION 

< 



4.3 Switch Settings 

None 
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4.4 



4.5 



HIT Location 
MMERRX+1 



5. 



Start Up and/or Entry 

See Section 4.2, Calling Sequence 

Errors in Usage 

Only one HLT exists in the subroutines: 

Meaning 

Error return parameter was not 
a JMP instruction and an error 
occurred. Type of error is in- 
dicated by the number in the 
accumulator. (See Section 4.2.3) 

RESTRICTIONS 



Procedure 

Correct the calling sequence 
to provide a JMP instruction 
for the error return. 



None except those mentioned in the preceding paragraphs. The standard tape format of 
1 lOOg usable blocks of 400g words each must be used. 



6. 



DESCRIPTION 



6.1 



Discussion 



The subroutines attempt to make variable length DECtape data transfers as easy and ef- 
ficient as possible. They are completely self-contained, include only one possible error halt, indicate 
all possible errors which can occur, and allow fastest access to the DECtape itself. The last is accom- 
plished by keeping track of the current position of each DECtape drive being used, calculating the ef- 
fective starting and ending block numbers of the tranisfer requested, and starting the search in the direction 
causing the least number of turnarounds. Thus the direction of the data transfer is predetermined before 
the tape is started and does not depend on the first block actually read during searching. If the tape is 
currently sitting within the area to be used by the data transfer, the ultimate transfer direction will be 
determined by which end of the DECtape area is nearest. The current position of the tape is always as- 
sumed to be the last block number read ±3 blocks depending on the direction of the last transfer. Initially 
all tapes are assumed to be sittmg at block number 3. 

The main thing to remember is that the user need never worry about the actual direction- 
transfer of the data since data always appears in memory or on tape qs if it were transferred in the forward 
direction. For example, assuming the user has requested that locations 1000 through 1477 be written be- 
ginning at block 100, the tape appears as follows irrespective of the direction in which it was written: 






BLOCK 100— 
Locations 
1000- 1377" 



Locations 



■> BLOCK 101- 



^SOOg Fi ller Words 

^""1400-1477^ ^of +0 ^ 



1 1 
34 
70 
70 
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If the data is transferred in the forward direction, the core locations are written first in 
ascending order followed by 300g filler words. If the data is transferred in reverse, 300g filler words 
are written first followed by the core locations in descending order. In either case, the end result is the 
same, and the technique is applicable to both reading and writing.* 

6.2 Examples 

The search routine has been rewritten to allow four different entrances: 

1 , Start the tape in the forward direction and exit when the correct block is 
found in the forward direction. 

2. Start the tape in the reverse direction and exit when the correct block is 
found in the reverse direction. 

3. Start the tape in the forward direction and exit when the correct block is 
found in the reverse direction. 

4. Start the tape in the reverse direction and exit when the correct block is 
found in the forward direction. 

In the following example assume the tape is sitting at the locations indicated by the letters shown, and a 
request is made to transfer 2001g words beginning at block 100: 



7. 

8. 
9. 



76 


77 


100 


101 


102 


103 


104 


105 


106 



Case A 
Case B 
Case C 
Case D 
Case E 



^ A A A A 

® ® © ® © 

Y" 

Actual area used by the data 
transfer 



Block T7 or less 
Closest to initial block 
Equidistant from start or end 
Closest to final block 
Block 105 or more 



METHODS 

See Description, Section 6. 

FORMAT (Not Applicable) 
EXECUTION TIME (Not Applicable) 



The program will use entrance 1 
The program will use entrance 4 
The program will use entrance 4 
The program will use entrance 3 
The program will use entrance 2 



*Should it ever become necessary to determine which way a block on tape waS actually written, the fol- 
lowing method can be used. If written in the forward direction, a checksum of -0 will appear at the 
front of the block (the end near the preceding lower-numbered block). If written in reverse, the -0 
checksum will be at the end of the block near the next higher-numbered block. 
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10. PROGRAM 

10.4 Program Listing 

/ttUniRECTIOMAL PDP-7 DECTAPE SUBROUTINES 

/ASSUMES STANDARD 400 <OCTAL) WORD Bl 0CK8 

/LMH JAMUaRY 21, 1966 

/UISMlS MUST BE DEFINED AS JMP TO DISMISS INTERRUPT ROUTINE 

/PDP-7 OCC-TaPC ^SEARCH SUBROUTINE 

MMWRa707504 

MMLca7'37604 

MMSEa707644 

MMRSB707612 

MMDFB707501 

MM.8ra707601 

Ml1Efr«7'^^7541 

Mf1RO8707512 

SKP7a703341 

AbCa705502 

EPI»7i30044 

OBRb705601 

Lii.MB707704 

e£Ma707702 
E^IR»707742 



/LEAVE IM SEaHCH REVERSE MODE# START REVERSE 
MMSCMR, LAW 41 /SpARCM FWD 

DAC MMWA3 /SPT CURRENT DIRECTION 

CLA 

JMP MMSCH8 

/LEAVE IN SEARCH REVERSE MODE* START FORWARD 
MMSRF, LAW 61 /SpARCH RfVERsE 

JMP MMSCHR+1 
/LEAVE IN SEARCH FORWARD MODE, START REVERSE 

mmsfr, law 41 /spARCM- Forward 

SKP 



/LEAVE IN S 


jeaRch F 


■ORWARD 


MMSCH0, 


LAW 


61 




DAC 


MMWA3 




LAM 




MMSCM8, 


DAC 


MMSBK 




TAD 


(1 ) 




DAC 


MMS^'K 




LAW 


MMERS 




DAC 


MmER» 




LAW 


mmdats 




,DAC 


mmdata 




LAC 


MM8UKM 




ADD 


mmek 




SMA 





/SPARCH Reverse, used as constant 
/spT current direction 

/load •0* USED AS CONSTANT 



/spT UP Interrupt return 



/PfCK UP BLOCK NUMBER 
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JMP MM8CW5 




LAM -7 




DAf MMSUM 


/35 MILLISECnND SELECT DP-LAY LOOP 


MMWATT* 


MMRS 




AND (40fc)) 




SZA 




JMP MMSCH9 




LAC MMCHK1*1 




SAD MMSEL 




JMP MMSCM9+1 




DAC MMSEl 


MMW?, 


CLA 




MMSE 




LAM DECIMAL '5000+1 




DAC MMBLF 




1ST I .-I 




JMP .»1 


MMSCW9* 


LAC MMCHKl+1 




MMSE 




LAC (NOP) 




DAC MMSAVE 




LAC MMAPII 




SZA 




JMP MMAPI 




ION 


MMTURN* 


ISZ MMSUM 




SKP 




JMP MMERXa^l 




LAC MMWA3 




yOR (20) 




MMLC 




DAC MMWA3 




SAD MMSCH0 




JMP MMREV 




LAC HMCK3 




DAC MMSCW2 




LAC MM8LKM 




TAD MMSKK 




DAC MMWA8 




DZM M*MDONE 


MMSAVE, 


NOP 




LAC MMRi)3B*l 




DAC MMSAVE 




ISZ MMWA 




PMIR 




JMP I MMWA 


MMRev/, 


LAC MMCKg 




DAC MMSCH2 




LAC MM8LKM 




TAO MMSBK 




JMP MMSAVE«2 



/FORMAT ERROR 

/CmQ or DIRECTION COUNTER 

/Save control type only 

/no delay for new drives 
/ptck up select 
/previous select 
/Same select 
/save select 

/Used as CONSTANT 

/sflect Unit 7Ero 

OCTAL 

/TPMPORARY storage AREA 

n microseconds per loop 

/count 35 milliseconds 

/Unit selection 



/dfctape on API Indicator 

/DO ion if not on API 

/Turn on API 



/not found 
/current select 
/Complement direction 
/sfarch In correct direction 
/Save selection 

/LAW 61 

/spt UP Reverse constants 

/sma# set to continue in forward direction 



/Bl OCK to look for IN THIS DIRECTION 

/OR DISMiS 
/DISMIS 

/INDEX POINTER 

/rpTUrn To main program 

/SpA# set to continue in reverse DIRECTION 
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/INSTRUCTIONS FOR AUTOMATIC PRIORITY INTERRUPT 
MMAPt, LAC MMAPIC /DrCTAPE CHANNEL NUMBER 

PPt /EmABlE Apl 

Asc /Enable: oectape channel 

JMP MMTURN 
/ROUTINES TO AmSWER INTERRUPT SEQUENCE 



MMER«5, 



MHDATS* 



M!^SCM2* 
MMSCW3* 
MMSCW5, 

mmek. 



MMR 
AND 
SZA 
JMP 
LAW 
JMP 
MMR 
DAC 
SAD 
JMP 
CMA 
ADD 
SMA 
JMP 
JMP 
SAD 
JMP 
JMP 
LAW 
JMP 
DEC 



D 



<40000) 

MMTURN 

MMERX2 

I M-»MWAl 

MMWA? 

MMSCH3 

MMWAg 

MMSAVEwl 
MMTURN 
MMRUKM 
I MMCHK 
MMTUR^N 
10(7! 

MMERXg 
IHAL "576 OCTAL 



/CHECK EOT BIT 

/ECT' TURN AROUND 

7N0N-E0T ERROR DUrInG SEARCH 



/OR SPA FOR REVERSE 
/KPEP GOING 
/TURN AROUND 

/Exit TO read or write routines 

/FORMAT ERROR 



/tRROR LOOP 
MMERV2* 



MMERRXi 

MMSEL, 

MMERR, 

mmdata# 

MMBlF, 
MMAPTC* 
M M W A X , 



LAW 200 

DAC MMRLF 

MMRS 

DAC MMRSA 

JMS MmRULL 

LAP MMERRX 

and (20S36J0) 

SZA 

FMIR 

CLC 

DAC MMDONE 

LAC MMBLF 

mmlC 

JMP , 

HLT 

PI 







10000 

3 

3 

3 

3 

3 

3 



/NOT FOUND 
/STORAGE AREA 



/ADD ROLL CONSTANT 



/JMP 
/JmP I 



/STORAGE AREA 



/Error EXIT was not a jmp instruction 
/SAVE selection 
/error return 
/Data return 
/block flag return 

/NORMAL DfCTApE ChAnNEL»3 

/Position of unit t 
/Position of unit 2 
/Position of unit 3 

/PnSITlON OF UNIT 4 

/Position of unit 5 
/Position of unit 6 
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3 /PnSITlON OF UNIT 7 

3 /POSITIOM OF UNIT 10 

/INTERLOCK Loop, HANGS UP MAIN PROGRAM UNTIl QO«0 

MMITLK* /U^ED FOR MMSyM 

LEM /LfPAVE EXTEND MODE 

MMRS /Q(?T STATUS 

AND (4P100) /CwECK GO 8IT 

SZA /NOT GOING? 

JMP .-3 /Wait 

JMP I MMITLK /SYSTEM AVAILABLE 

/LOOP TO ADD Roll constant to current address 

MMROLL* /USED AS WORK AREA* MMSBK 

LAC MMWA3 /LAST SEARCH COMMaND 

AND (2^) /Save direction bit 

SZA /GnING FORWARD 

LAM -5 /To CREATE LAM -2 

ADD (3) /RnLL CONgTAN? 

TAD T HMWA1 /ADD CURRENT LOCATION 

DAC I MMWA1 /STORE CURRENT LOcAjlON 

JMP I MMROLL 
/COMMON ROUTtNF FOR PICKING UP CONSTANTS AND SEARCHING 
/PICK UP PARAMETERS 
MMCMK, 

XCT I MMWA /BLOCK NUMBER 

AND (7777) 

DAC MMBLKM /SaVE PLOcK NuMbER 

isz MMWA /imdex pointer to Error return 

LAC I MMWA /EffROR RETURN 

DAC MMERRX /IM SEARCH ,EXlT 

ISZ MMWA /IMDEX POINTER TO UnIT 

LAC I MMi^A /UMIT 

AND <17I3000> /KPEP UNIT ONLY 

DAG MMCHK1+1 /Im CALLING SfQuEnCE 

RCL /Ci EAR AND ROtATE LiNK 

RTL /PllT UMiT NUMBER iN L,0. POSITION 

RTL 

RTL 

ADD (MMWAXwl > 

DAC MMWAI /ADDRESS OF POSITION POINtEH 

/FOR THIS UNiT 

tSZ MMWA /IMDEX POINTER TO STARTINq ADDRESS 

LAC I MMWA /STARTING ADDRESS 

AND <77777) /I"! BIT AoDREgS 

DAC MMADDR /LOCATION POINTER 

ISZ MMWA /IMDEX POINTER TO EnDING^ADDReSS 

/CALCULATE NuMSER OF DATA AND FILLER WORDS 

LAC T MMWA /FINAL ADDRESS 

AND (77777) / 1 •! BIT ADDRESS 

CMA 

ADD MMAUDr /STARTING ADDrESS 

SMA 

JMP MMSCH5 /II LEGAL FORMAT 

DAC MMWDC /*N!0» OF DATA WQRdS^I 
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AND (377) 
VOR (777400) 
TAn (377) 

CMA 

DAC mm;3Cn 

LAM -1 
DAC MMFiLC 
/CAuOULATE Twt DtRECTlOM TO SEARCH 
LAC MM-»BUKN 
SNA 

JMP MHSCh§ 
CMA 



/LnW ORDER 8 BITS 
/MAKE MUM8ER mEQAtIvE 



MMC<?, 



ADD I MMWA1 

SPA 

JMP MMQF 

DAC MMWA9 

LAC MM'»i^DC 

CMAVCLL 



(777<i00) 



Mi^C<li 



AND 
RTP 
RTR 
RTR 
RTR 



ADD MHC^LKM 

DAC MMWA7 

CMA 

ADD I MMi^AI 

SMA 

JMP MMGH2 

ADD MMWA5 

SMA 

JMP MMGH 



/^mO of FfLlER WOrDS+1 

/SFCTION COUNTER 

VBl OCK DESIRED 

/8l OCK 0» FORMAT ERROR 

/CURRENT POSITION! 

/CURRENT POSITIOM HiQhCR THAN DESIRED BLOCK 
/SfTARCM AND TRANSFER DATA FORWARD 
/DtSTAnCE TO START BL.OCK 

/-NUMBER OF Data wOrds*i 

/NUMBER OF DATA WoRDS"! 
/KFEP number oF 8|0cKS«1 
/DtVIDE By 400 OCTAL 



/starting block 
/last rlock 

/Current position 

/CURRENT POSITION Is WITHtN TRANSFER sECTtON 

/SPARCH And Transfer data in reverse 
/Distance to start block 

ySTART IN REVERSE, TRANSFER DATA FoRwaRD 

/start fwo* Transfer data in reverse 



/JjTa^T IM REvERSF, TRAMSPER data FORWARD 
LAW MMsFR 
SKP 



/SFT UP SfARCH ENTRANCE 



/bTAi^.T AND TRANSFER DATA FORWARD 

MMGr, LAW MMSCH0 

DAC MMWA? 

LAC (1) 

DAC MMDK -/FOR INCREMENTING ADDRESS 

Mi^GF?, LAG (DAQ I MMADDR) /SET READ ROUtINE 

DAC MMRDTi 

LAC (LAC I MMADDR) /SpT WRITE ROUTINE 

HAC MMWR3+1 
/STA'^T SEARCm 

MMCHKj, JMP I MMWA5 /lf> SEARCH 

^ /UNIT AND WORK AREA MMWA2 
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/START FORWARiJ, TRANSFER DATA IN REVfRSE 

HMGR, LAW MMSRF 

SKP 



/START 



AMD 



trAmsf 

LAW 



ER DATA IN REVERSE 
MMSCnr 



DAC 
LAM 
DAC 
LAC 
«?ZA 
ADT) 
ADD 
DAC 
LAC 
DAC 
LAC 
SNA 
JMP 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
JMP 
HMGR3, ISI 
JMP 

/uectape subpouti 
/format jms 

^ LAW 

/ JMP 

/ ZZ0 

/ CI 

/ C2 

/ MUL 



MHWAt? 

MMDK 
MM3CN 
VCMA 
(1 ) 

I MMWA 

MMADDR 

MHWA7 

MMPlKM 

MM20N 

MMr5R3 
MMWA6 
MHWDC 
MM2CN 
MMWA6 
MMWDC 
(NOP) 
MMRD3 
MM,W2 
MMCHK 
MMFIU 
MHGFg 
NEj READ PDP-7 
MMROR 
8 

y 

000 



T!-.pROGRAM RETURN 



/SPT UP SEARCH ENtRANCF 

/Tn DECREMENT ADDrEsS 

/FTLLER COUNTfR 

/♦^ IF THERE ARE NO FILLERS 

/EMDiNQ Address 

/DATA LOCATION! POINTER 

/SEARCH For Last block 



/Nn FILLERS 

/EyCHANGE MMWnC AND MM^sCN 



/FftR FILLERS IN RD ROUTINF 
/FOR FILLERS IN wRItE ROUtInE, CLA 
1-1 

n 



/0» LAC (B)* BLOCK NUMBER 
/ERROR RETURN 
/UKJiT SELECTION 

/i"!-BiT Core starting address 

/i<9-BiT Core ending address* inclusive 



MMRDS, 



PI 

jMg MMITLK 
LAC HMRDS 
DAC MMWA 
JMS MMCHK 



/cmeck if system is free 

/STORE POtNTER to ARGUMENTS 

/GpT Arguments and search 



/RETURN FROM SEARCH WiTH bLOCK FOUND 

LAW MMROi /spt up Interrupt returns 

DAC MMERR 
LAW MMRD4 
DAC MMRLF 
MMRD0, XCT MMWA3 /SfARCm COMMAND 

ADD (1) /MAKE REAo COmMANH 

MMIC 

LAW MMRDIA 

DAC MMDATA 

DZM MMDONE 

DISMIS 
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MMROI , 


LAW 400 




JMP MMPHV? 


M^^RDIA* 


MMRD 




OAC MMSUH 




LAW MMRD2 




DAC MMDATA 




nisMis ^^ ^^' ■ " 


MMR05, 


MMRD 




eem - ' " ■ '^ 


MMRq,"^. 


DAn ! MM-^ADtrR' ' 




LEM. - ■■ '^ 




JMS MMRU6 


MMR03A, 


IS7 MM-»FlLC 




JMP MMRD'5 ' 




LAC (Map) ' 


M M R D :^ 9 # 


DAC MMRD3 




DISMIS 


HMRD4, 


MMRD 




ADD HMSUM 




SAD VmSCM8»1 




JMP ,+3 




LAW «500 




JMP MMPRVa 




JMS NMRLC 




JMP MMRU0 


MMRDs;, 


LAC MM^20m 




SNA 




JMP MMRD3A 




DAP MMWUC 




LAC (DAG I MMADDR) 




SAD MMRD3 




JMp: MMRD38«I 




JMP MMRD.18 


/ADD TO 


CHECKSUM AND INCREMENT -OR 


MMROfS,, 


•■0 ■•: ^ '■ ' 




ADD MMSUM 




DAC MMSUM 




LAC MMADDR 




TAD MMDK 




DAC MMADDR 




iS7;-MMwoa 




DISMIS 




JMP ! MMR06 



/CHFCK MEXT qUOCK MARJ^ NUMBER 

LAW MM9LCa 
DAC MMDATA 
yCT MMWA3 
MMLC 
DISMIS 
M'^^^LC2# LAC I MMWA1 
TAD MM^DK 
DAC I MMWA1 
MMRU 



/ERROR FLAG DURING REa'DIMg 
/RPAD REVERSE CHECKSUM 



/read data 

/Emable Extended mEmory 

/OR NOP 

/DtsABlE extended MEMORY 

/CaCULATE CHECKSUM 

/spctidn counter 
/spt Up For Section 

/Do NOT store REMAINDER Of BLOCK 
/USED AS CONSTANT 
/RPAD FORWARD CHECKSUM 

/-.^ 

/Sum check reading 
/CHECK NExT Block number 

/RPAD mEXT block 

/2mo section counter 
/no fillers 

/SPT Up Word COUNTEf? 



/STORE NOP 

/STORE DAC INSTRUCTION 

DECREMENT ADDRESS 

/USED AS WORK AREA* MMWA5 

/PREVIOUS CALCULATION 

/STORE NEW RESULT 

/CURRENT ADDRESS 

/♦r OR -1 

/NPfW ADDRESS 

/WORD COUNTER 

/CHECK FOR FILLERS ETC. 



/USED AS WORK AREa» HMSFK 

/SPT DATA Flag return 

/SpARCH COMMAND 



/CURRENT BLOCK NUMBER 
/+l OR -1 

/NPW Block number 



Digital-7-22A-l/0 
Page 15 



/FORMAT 

/ 

/ 

/ 

/ 

/ 

/ 

MMWR?5, 



SAD I M M W A 1 

JMP ,+3 

LAW 70i^ 

JMP MMf^R^^? 

LAC MMFILC 

SZA 

JMP I MMSLn 

MMLC 

JMS MMROLL 

CLC 

DAC MMDONI. 

DISMIS 

wrtTe subroutine* 
jms hmwrs. 

LAW 8 
JMP y 

iimm 

CI 
C2 

MULTI-PROGRAM 



/cnMPARE TO Correct mumber 
/Block mark errqw 
/SFCTinN counter 



/rfturm for nfxt 

/STOP THE TAPe 
/ADD ROLL 



/spt done 



8L0CK 

constant 

SWITCH 



PDP-7 



RETURN 



/OR LAC C8)# BLOCK NUMBER 

/ERROR RETURN 

/UMIT SELECTION 

/l^^-BIT CORE STARTING ADDRESS 

/1^-BIT EmDINg ADDRESS, inclusive 





JMS 
JMS 



/RETURN FROM SEARC 
LAW 
DAC 
LAW 
DAC 

HMWRl, LAW 

DAC 
DZM 
CLC 
DAC 
yCT 
ADD 
MMl. C 
DISM 

MMWR?, LAW 

JMP 

MMWRT?, FEM 

LAC 

lem 

MMWR 
JMS 

HMWRr^Ai TSZ 
JMP 
LAC 

HMWR,"^9, nAC 

Dl!§M 
MMWR4, LAC 
CMA 
MMWR 
JMS 
JMP 



MMITLK 
MMCHK 

H WITH BLOCK 

MMWH2 

mmeRR 

MMWH4 
MMRLF 
MMWR3 
MMDATA 

mmdone 
mmsum 

MMWA3! 
(2) 

IS 

600 
MMERXp 

I MMADDH 



/CHECK IF SYSTEM iS FREE 
/PTCK UP ARGUMENTS AND SEaRCH 

FOUND 

/sft up Interrupt returns 



MMRD6 

MMFILC 

MMWR6 

MMW2 

MMWR3+ 

IS 

MMSUM 



MMRLC 
MMWRl 



/START CHECKSUM 
/SfARCH COMMAND 

/Create write command 



/ERROR FLAG OuRlNR WRITING 

/emable Extended mode 

/OR cla 

/disable extend mode 

/Calculate checksum 

/spction counter 

/sft up For 2!md section 

/Cl A 



/WRITE CHECKSUM 



/cmeck next Block number 



Digitol-7-22A-l/0 
Page 16 



Mi^WR^, 



LAC <MM2CM 

SNA 

JMP MMWR3A 

DAC MMWDC 

LAC (LAC I MMADDR) 

SAD MHWH3+1 

JMP MMW83B«1 

JMP MMWR38 



^I^WA^aMMSAVE 

MMWA'iaM.SlR06 

MMWA^laMMROS 

Mi^SFKxMMRLC 

Mi^WaPsMHCHKI+1 

MMS9K3MMR0LL 

MMWasMMWRS 

MMSUMaMMlTLK 

MMWA7aMMSUM 

MMRSAaMM(e-RR 

SI Af?T 



1 1 . DIAGRAMS 

n.l Flowcharts 




PICK UP 
SUBROUTINE 
PARAMETERS 



DETERMINE 

NO. OF DATA AND 

FILLER WORDS 



DETERMINE 

SEARCH 
DIRECTION 



TURN ON 
INTERRUPT OR 
API CHANNEL 



START SEARCH? 

RETURN TO 
MAIN PROGRAM^ 




FROM THIS POINT ALL ITEMS ARE DONE IN 
THE INTERRUPT SERVICE ROUTINES WHICH 
ARE OVERLAPPED WITH THE RUNNING OF 
THE MAIN PROGRAM. 



PICK UP 
ERROR INDICATOR 




Gross DECtape Subroutine 
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PICK UP PARAMETERS 

CALCULATE NUMBER 

OF DATA AND 

FILLER WORDS 



SET SECTION 
COUNTER CORRECTLY. 
SET UP WORD COUNT 
FOR FIRST SECTION 



SEARCH FOR 
THE CORRECT BLOCK 




-€> 



PICK UP 
ERROR CODE 4(90 



MMERX2 




READ AND STORE 
REVERSE CHECKSUM 




SET DECTAPE 

STATUS. 

ADD ROLL CONSTANT 

TO CURRENT POSITION 



STOP TAPE. 
SET DONE 
INDICATOR 




MMRD0 



CLEAR DONE 
INDICATOR 




Read Routine 
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-0 



READ WORD. 

TURN ON 

EXTEND MODE 




STORE WORD IN 

CORRECT LOCATION 

IN MEMORY 



TURN OFF 
EXTEND MODE 



READ FORWARD 

CHECKSUM. ADD 

TO PREVIOUS 

CHECKSUM RESULT 



ADD WORD 

TO CALCULATED 

CHECKSUM 




INCREMENT OR 

DECREMENT 

CURRENT ADDRESS 



PICK UP ERROR 
CODE 500 



INDEX 
WORD COUNT 



SWITCH TO 
SEARCH MODE 






SET SWITCH 1 
TO NOP 





RESET WORD 

COUNT FOR 

SECOND SECTION 



Read Routine (continued) 
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INCREMENT OR 

DECREMENT 

CURRENT 

BLOCK NUMBER 



READ 
BLOCK NUMBER 




PICK UP ERROR 
CODE 700 



-0 



STOP TAPE. 
SET DONE 
INDICATOR 



ADD ROLL 

CONSTANT TO 

CURRENT POSITION 




Read Routine (continued) 
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PICK UP PARAMETERS 

CALCULATE NUMBER 

OF DATA AND 

FILLER WORDS 



SET SECTION 

COUNTER CORRECTLY. 

SET UP WORD COUNT 

FOR FIRST SECTION 



SEARCH FOR THE 
CORRECT BLOCK 





<D 



INCREMENT OR 

DECREMENT CURRENT 

BLOCK NUMBER 



READ 
BLOCK NUMBER 



SWITCH TO 
WRITE MODE 



CLEAR DONE 
INDICATOR 





PICK UP 
ERROR CODE 700 



-0 



STOP TAPE 
SET DONE 
INDICATOR 




ADD ROLL 

CONSTANT TO 

CURRENT POSITION 



Write Routine 
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o 



PICK UP ERROR 
CODE 600 



-<7> 



SAVE 
DECTAPE STATUS 



STOP TAPE. 
SET DONE 
INDICATOR 




TURN ON 
EXTEND MODE 




LOAD CORRECT 

WORD 
FROM MEMORY 



TURN OFF 
EXTEND MODE 
WRITE WORD 



LOAD. COMPLEMENT 

AND WRITE FORWARD 

CHECKSUM 



ADD WORD 

TO CALCUUTED 

CHECKSUM 



SWITCH TO 
SEARCH MODE 




INCREMENT OR 

DECREMENT 

CURRENT ADDRESS 



INDEX 
WORD COUNT 




SET SWITCH 2 
TO CLA 




MMWR6 

WORD 
_wr COUNT FOR 
^^ ^2nd SECTION 

= ? 





RESET WORD 
COUNT FOR 
2nd SECTION 



Write Routine (continued) 
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MMCHK 

ENTER WITH ADDRESS 

OF LOCATION OF JMS 

MMRD8(0RMMWRS)-»-l 

IN AC. STORE 

AT MMWA 



XCT INSTRUCTION 

PICKING UP 
BLOCK NUMBER 



STORE AT MMBLKM 
INDEX MMWA 



PICK UP ERROR 

EXIT AND SAVE. 

INDEX MMWA 



PICK UP UNIT. STORE 
IN SEARCH CALL 



PUT UNIT IN LOW 
ORDER POSITION 



MODIFY POINTER TO 

CURRENT POSITION 

BY UNIT NUMBER 



INDEX MMWA. LOAD 
FIRST ADDRESS 



STORE FIRST 

ADDRESS AS 

CURRENT ADDRESS 



INDEX MMWA. 
LOAD LAST ADDRESS 



SAVE DISTANCE 
TO STARTING BLOCK 



CALCULATE LAST 
BLOCK AND SAVE 




<D 




LOAD BLOCK 
TO LOOK FOR 



SET SECTION 
COUNTER TO -2 



CALCULATE NO OF 

FILLER WORDS AND 

STORE -N+1 IN 

2ND COUNTER 

1 



STORE -N+1 
IN WORD COUNT 
FOR DATA WORDS 




PICK UP ERROR 
CODE 1(50 



STOP TAPE SET 
DONE INDICATOR 




-0 



SET TO ENTER 
SEARCH ROUTINE TO 
START IN REVERSE 

BUT TRANSFER 
FORWARD (MMSFR) 



MM6F 



SET UP SEARCH 

ENTRANCE TO START 

AND TRANSFER 

FORWARD (MMSCH0) 



SET INCREMENT 
CONSTANT TO+1 



SET SWITCH 1 IN 

READ ROUTINE 

TO STORE DATA 



SET SWITCH 2 
IN WRITE ROUTINE 
TO WRITE DATA 



'ENTERS 
SEARCH 

f ROUTINE AT) 
CORRECT 

^.ENTRANCE 



Common Routine to Pick Up Parameters 
and Initiate Searciiing 
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MMGR2 ^ 

SET TO ENTER 

SEARCH ROUTINE TO 

START AND TRANSFER 

DATA IN REVERSE 

(MMSCHR) 



MMGR 



SET TO ENTER 
SEARCH ROUTINE TO 
START FORWARD AND 
TRANSFER DATA IN 
REVERSE (MMSRF) 



SET INCREMENT 
CONSTANT TO-t 



CALCULATE ENDING 

ADDRESS IN CORE 

AND FILLER LOCATIONS 



STORE LAST 

ADDRESS AS 

CURRENT ADDRESS 



STORE CALCULATED 
LAST BLOCK 
AT MMBLKM 



LOAD FILLER 
COUNTER 




EXCHANGE DATA 

WORD COUNT WITH 

FILLER WORD COUNT 



SET SWITCH 1 

IN READ ROUTINE 

TO NOP 



SET SWITCH 2 

IN WRITE ROUTINE 

TO CLA 



INDEX 
SECTION COUNTER 



ENTER 

/SEARCH RTNE\ 

AT CORRECT/ 

ENTRANCE 



Common Routine to Pick Up Parameters 
and Initiate Searching (continued) 
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SEARCH AND TRANSFER 
IN REVERSE 



SEARCH FORWARD 
TRANSFER IN REVERSE 



SEARCH IN REVERSE 
TRANSFER FORWARD 



SET LAST SEARCH 

COMMAND TO 

SEARCHING FORWARD 



SET LAST SEARCH 

COMMAND TO 

SEARCHING IN 

REVERSE 



PUT ZERO 
IN ACCUMULATOR 



SEACH AND TRANSFER 
FORWARD 

MMSCH0 



SET LAST SEARCH 

COMMAND TO 

SEARCHING FORWARD 



MMSCH8 



STORE AS CONSTANT 

(MMSBK) FOR 

SEARCHING IN 

REVERSE 




-<D- 



PICK UP 
ERROR CODE 100 



TAD (1 ). STORE 

AS CONSTANT 

(MMSFK) FOR 

SEARCHING 

FORWARD 



SET INTERRUPT 
TO RETURN TO U 



LOAD MMBLKM 

(BLOCK TO 
SEARCH FOR) 




SET CHANGE 

OF DIRECTION 

COUNTER TO -8 



SET LAST SEARCH 

COMMAND TO 

SEARCHING IN 

REVERSE 



PUT -0 
IN ACCUMULATOR 



DESELECT ALL 
UNITS. WAIT 35 
MILLISECONDS 




PICK UP 
UNIT DESIRED 




NEW 
-*-C CONTROL 
? 



Search Routine 
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SELECT UNIT 



SET EXIT I TO 
RETURN TO THE 
MAIN PROGRAM 




ENABLE API 
ENABLE CHANNEL 



TURN ON 
PROGRAM INTERRUPT 



INDEX CHANGE 

OF DIRECTION 

COUNTER 




PICK UP 
ERROR CODE 200 




PICK UP 
ERROR CODE 300 



o 



LOAD LAST SEARCH 

INSTRUCTION. 

COMPLEMENT 

DIRECTION BIT 



ISSUE SEARCH 

COMMAND AND 

SAVE INSTRUCTION 




SET SWITCH 3 

TO CONTINUE IN 

REVERSE DIRECTION 



ADD SEARCH 
REVERSE CONSTANT 
(MMSBK) TO MMBLKM 
AND SAVE AT MMWA2 



SET SWITCH 3 

TO CONTINUE IN 

FORWARD DIRECTION 



ADD SEARCH 
FORWARD CONSTANT 
(MMSFK) TO MMBLKM 
AND SAVE AT MMWA2 



CLEAR 
DONE FLAG 




Search Routine (continued) 



